home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / basic-c / test8.bas < prev   
BASIC Source File  |  1988-12-21  |  124b  |  10 lines
  1. 100
  2. print "enter beep time > ";
  3. input s
  4. print "beeping ";s;" times"
  5. beep s
  6. if s = 0 then goto 200
  7. goto 100
  8. 200
  9. end
  10.